[RoutineDef,cyclepaint,
[IPress,Tool:Polygroups:From Polypaint]
[IPress,Tool:Polypaint:Polypaint From Polygroups]
]//end routine

[IButton,???,"CyclePaint",
//[IPress,Tool:Polypaint:Polypaint From Polygroups]
[RoutineCall,cyclepaint]

]//eof